home *** CD-ROM | disk | FTP | other *** search
/ Shareware Super Platinum 8 / Shareware Super Platinum 8.iso / mac / PROGTOOL / FGL304D.ZIP;1 / EXBAS.ARJ / FGDOC / EXAMPLES / BASIC / 06-17.BAS < prev    next >
Encoding:
BASIC Source File  |  1994-01-24  |  574 b   |  41 lines
  1. REM $INCLUDE: 'fastgraf.bi'
  2.  
  3. DEFINT A-Z
  4.  
  5. NewMode = FGbestmode(320,200,1)
  6. IF NewMode < 0 THEN
  7.    PRINT "This program requires a 320 x 200 graphics mode."
  8.    STOP
  9. END IF
  10.  
  11. OldMode = FGgetmode
  12. FGsetmode NewMode
  13.  
  14. FGsetcolor 10
  15. FGmove 100, 50
  16. FGdrawrel 120, 0
  17. FGdrawrel 0, 100
  18. FGdrawrel -120, 0
  19. FGdrawrel 0, -100
  20.  
  21. FGsetcolor 9
  22. FGmove 160, 80
  23. FGdrawrel 30, 20
  24. FGdrawrel -30, 20
  25. FGdrawrel -30, -20
  26. FGdrawrel 30, -20
  27. FGwaitkey
  28.  
  29. FGsetcolor 10
  30. FGpaint 160, 70
  31. FGwaitkey
  32.  
  33. FGsetcolor 15
  34. FGpaint 160, 100
  35. FGwaitkey
  36.  
  37. FGsetmode OldMode
  38. FGreset
  39.  
  40. END
  41.